home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 September
/
1994-09b.d64
/
power supply
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
4KB
|
141 lines
5 rem copyright 1994 - compute publications intl ltd - all rights reserved
10 rem power supply comp value selector
20 poke 53280,0:poke 53281,0:poke 646,3
30 print"[147]"
40 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
50 print"[221] [221]"
60 print"[221] for screen display, type s [221]"
70 print"[221] [221]"
80 print"[221] for printer output, type p [221]"
90 print"[221] [221]"
100 print"[221] to quit, type q [221]"
110 print"[221] [221]"
120 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
130 get d$:if d$="" then 130
140 if d$="s" then 170
150 if d$="p" then 500
160 if d$="q" then end
170 gosub 5000
180 on t goto 1000,2000,3000
500 print "[147]"
510 print"the printer option prints a table of"
520 print
530 print"values for various transformers"
540 print
550 print"type of circuit:"
560 print
570 gosub 5000
580 on t goto 1500,2500,3500
1000 print "[147]"
1010 print"full wave bridge, capacitor input filter"
1020 input"transformer rms voltage <0 to return to main menu>";v
1030 if v=0 then 30
1040 print:input"transformer current rating (amps)";c
1050 gosub 9000
1060 oc=int(c/1.8*10)
1070 gosub 6000
1080 printtab(3);v$;tab(18);rv$;tab(34);dv$
1090 gosub 7000
1100 printtab(7);cv$;tab(29);oc/10
1110 print:print:print:print:goto 1010
1500 print "[147]"
1510 input"minimum transformer voltage";m
1520 t$="full wave bridge"
1530 gosub 8000
1540 for v=m to m+50
1550 gosub 9000
1560 print#4,tab(4);v$;tab(21-len(v$));rv$;
1565 print#4,tab(20-len(rv$));dv$;tab(25-len(dv$));cv$
1570 print#4,tab(20-len(rv$));dv$;tab(25-len(dv$));cv$
1580 next v
1590 print#4,chr$(12):close4:goto 500
2000 print "[147]"
2010 print"full wave center tapped, capacitor"
2020 print"input filter"
2030 print:print"transformer rms voltage (entire "
2040 input"secondary) <0 to return to main menu>";v
2050 if v=0 then 30
2060 print:input"transformer current rating (amps)";c
2070 gosub 9000
2080 oc=int(c/1.2*10)
2090 gosub 6000
2100 printtab(3);v$;tab(19);sv$;tab(34)ev$
2110 gosub 7000
2120 printtab(7);cv$;tab(29);oc/10
2130 print:print:print:print:goto 2010
2500 print "[147]"
2510 print"minimum transformer voltage":print
2520 input"(entire secondary)";m:if m="" then 2515
2530 t$="full wave center tap"
2540 gosub 8000
2550 for v=m to m+50
2560 gosub 9000
2570 print#4,tab(4);v$;tab(21-len(v$));sv$;
2580 print#4,tab(20-len(sv$));ev$;tab(25-len(ev$));fv$
2590 next v
2600 print#4,chr$(12):close 4:goto 500
3000 print "[147]"
3010 print:print"full wave bridge center tap"
3020 print"capacitor input filter"
3030 print
3040 print"transformer rms voltage"
3050 input"(entire secondary) <0 to return to main menu>";v
3060 if v=0 then 30
3070 print:print
3080 input"transformer current rating (amps)";c
3090 gosub 9000
3100 oc=int((c/1.8)/2*10)
3110 gosub 6000
3120 printtab(3);v$;tab(18)"+/-";sv$;tab(34);ev$
3130 gosub 7000
3140 printtab(7);cv$;tab(28);"+/-"oc/10
3150 print:print:print:print:goto 3010
3500 print "[147]"
3510 print"minimum transformer voltage":print
3520 input"(entire secondary)";m
3530 t$="full wave bridge center tap"
3540 gosub 8000
3550 for v=m to m+50
3560 gosub 9000
3570 print#4,tab(4);v$;tab(21-len(v$))"+/-";sv$;
3580 print#4,tab(16-len(sv$));ev$;tab(26-len(ev$));fv$
3590 next v
3600 print#4,chr$(12):close4:goto 500
5000 rem subroutines
5100 print "[147]"
5200 print"power supply type":print
5300 print" full wave bridge (1)"
5400 print" full wave center tap (2)"
5500 print" full wave bridge center tap (3)":print
5600 print" all using capacitor input filtering":print
5700 print"select type 1, 2, 3, or"
5800 input"4 to return to main menu";t
5900 if t=0 then 5900:if t=4 then goto 30:return
6000 print"[147]"
6100 print"transformer";tab(20);"dc";tab(34);"diode"
6200 print"voltage(rms)";tab(18);"volts";tab(35);"piv"
6300 print
6400 return
7000 print:print:
7100 printtab(5);"capacitor";tab(30);"dc"
7200 printtab(6);"voltage";tab(25);"current(amps)"
7300 return
8000 close4:open4,4
8100 print#4:print#4:print#4
8200 print#4,tab(30-len(t$)/2),t$
8300 print#4,tab(18),"capacitor input filter"
8400 print#4
8500 print#4,tab(2)"transformer";tab(14)"dc";tab(15)"diode";
8600 print#4,tab(19)"capacitor"
8700 print#4,tab(2)"voltage(rms)";tab(11)"volts";tab(15)"piv";
8800 print#4,tab(21)"voltage"
8900 return
9000 rv=int((v*.95*1.414)+.04):rv$=str$(rv)
9100 sv=rv/2:sv$=str$(sv)
9200 dv=int(2*rv):dv$=str$(dv)
9300 ev=int(4*sv):ev$=str$(ev)
9400 fv=int(1.3*sv):fv$=str$(fv)
9500 cv=int(1.3*rv):cv$=str$(cv)
9600 v$=str$(v)
9700 return